home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / gfx / conv / Anim2gif.lha / Anim2gif / An2gif next >
Text File  |  1999-03-17  |  1KB  |  41 lines
  1. echo "c*N"
  2. Requestfile >env:ANIMname TITLE="Choose anim to convert"
  3. if warn
  4.    echo >env:msg "Operation canceled....!"
  5.    skip end
  6. endif
  7. if not exists $ANIMname
  8.    echo >env:msg "File does not exist....!"
  9.    skip end
  10. endif
  11. Requestfile >env:ANIMdest TITLE="Choose destination path."
  12. if warn
  13.    echo >env:msg "Operation canceled....!"
  14.    skip end
  15. endif
  16. Requestchoice >env:mode "" "Do you want scaling ?" Yes No
  17. if $mode eq 1
  18.    SmartScale ask $ANIMname
  19. endif
  20. assign Split: Split
  21. delete >nil: split:#?
  22. buildanim $ANIMname Split:PIC. SPLIT VERBOSE
  23. echo "*N Animation successfully split."
  24. copy >nil: gfxcon T:gfc
  25. if val $mode eq 1
  26.    list sort name >T:ConPics Split: lformat "t:gfc %s%s to %s%s size $xout $yout format gif colors 256 dither"
  27. else
  28.    list sort name >T:ConPics Split: lformat "t:gfc %s%s to %s%s format gif colors 256 dither"
  29. endif
  30. stack 30000
  31. execute t:conpics 
  32. list sort name >T:ConPics split: lformat "%s%s"
  33. echo "*N"
  34. whirlgif -o $ANIMdest -loop -i t:conpics
  35. echo >env:msg " Animation complete."
  36. delete >nil: t:gfc t:conpics split:#? env:mode
  37. lab end
  38. Requestchoice >nil: "" "$msg" OK
  39. delete >nil: env:msg env:xin env:yin env:xout env:yout env:xinh env:din env:ANIMname env:ANIMdest
  40. endcli
  41.